{-# LANGUAGE TemplateHaskell, QuasiQuotes, OverloadedStrings #-}
module Handler.MasterCatalog.Home where

import Foundation
import Settings.StaticFiles
import Handler.Common (footer, header)

getMCHomeR :: Handler RepHtml
getMCHomeR = do
  defaultLayout $ do
    setTitle "Master Catalog"
    addWidget $(widgetFile "mcpage")
  where
    left = [whamlet|
            <img .green_head .image src=@{StaticR img_greenhead_png}>
           |]
    right = addWidget $(widgetFile "mcdescribe")

